4 REM *************** NIGHT RIDER *************** 

5 REM by: Alan Stankiewicz 8< Bruce Robinson 

7 REM 

8 GOSUB130:G0BUB3100:GOTO100 

9 POKE 11,0:POKE12,253: X=*USR < X) : OPEEK <531) : RETURN 

10 POKE11,0:POKE12,30 
31 ):RETURN 

100 G0SUB900 

125 GOSUB130:GOTO150 

130 3=PEEK<129):K=PEEK<130):POKE129,0:POKE130,212:U*=" ":FORU=1T07 
132 U*=U*+U*+" ":NEXT:P0KE129,J:POKE130,K 
134 RETURN 

150 DATA. 49:READJ:IFJ<>.49THEN150 

151 DATA77,73,32,83,69,67,32,83,80,69,69,68 
153 K=UL+22*I+6:FORj=KTOK+l1:READL:POKEJ,L:NEXT 
158 IFHU=OTHEN200 

160 POKEUL+16+16*1,213:POKEUL+17+16*1,212 

200 ONPEEK (CR) G0SUB400,420: COPEEK < CP) : V=PEEK < VL) 

212 IFV >WTHEN IFHUTHENPOKEF J , FK 

250 M=M+AF*V:T=T-SY+VC*V:IF0>TTHEN5O0 

330 PRINTCHR*<TH>INTCM/T3)INT(T/T2)V*T1" " ; 

336 F0RJ=V*FIT0C3:NEXT:HP=HP+1:IFPEEK <HP)=0THENGQSUB600 

390 VV=V: POKEFJ, SX: X=USF: < X ) : G0T0200 

400 COPEEK <CP) -SX : IFCC<0THENCC=256+CC 

405 LOUL+15+16*I 

410 G0T0425 

420 COF'EEK (C-P) +SX : IFCC >255THENCC=CC-255 
423 LC SS UL+18+16*1 
425 POKECP,CC 

427 FORK 5 * 1T02: FOR J = 1T043: POKELC, J: NEXT: NEXT: POKELC, 32 
430 T=T-C5:P0KE228,1:RETURN 
500 T=0:M= <M-V)/T3 

505 K=UL+22*I+6: FORJ=KTOKtl 1: POKEJ, 32: NEXT 
510 PRINTCHR$(13)"You went"M"miles!" 

514 PRINT"01d record was"MC 

516 IFMC< MTHENMC=M 

517 PRINT 

520 PRINT"Same road?" 

525 POKEKC,0:POKEKC,1:POKEKB,RO:IFPEEK < KB)=C70RPEEK < KB)=C6THEN525 

526 POKEKC,0 

530 G0SUB9: IFO89THENG0SUB3000: G0T0540 
535 RN=RND<8) 

540 G0SUB950:G0SUB660:RESTORE:GOTO120 

600 ONRND <8>*6G0T0620,630,640,650,660 

610 HP=HR:G0T0680 

620 HP=7025:G0T0680 

630 HP—7093:G0T0680 

640 HF'=7165: G0T0680 

650 HP=7310:G0T0680 

660 HF-HR 

680 J=INT < HP/TF >:P0KET9,J:POKET8,HP-J *TF:HP=HP+8: RETURN 

900 KS=57100:KC=530:KB=57088:T3=1000:T2=100:T1=10:TH=13:UL=53440 

901 HR=7000:VL=228 

902 F0RJ=1T0950:K=RND<8):NEXT 




903 06=247:C7=239s ACC=250:R0W=251 

905 I=32:IFPEEK<57088)>128THEN910 

906 1=64:P0KE56832,0:C6=8:07=16:ACC=5:R0W=4 

910 TF=256:C5=500:SX=32:SZ=21:TG=255:PT=.25:TW=20:03=300:FI=15 

911 SY=41.7:VC=1.5:AF=.34 

920 ML=7834:MH=ML+1:CR=234:G0SUB1010:GOSUB45100 

925 FJ=UL+17+I7*I:FK=94 

940 PRINT:PRINT"Want to see car?"; 

942 POKEKC,1:POKEKB,07:RN=RND(8):IFPEEK(KB)=C6THENHU=1;G0T0948 
944 POKEKB,RO sIFPEEK < KB)=C6THEN948 
946 POKEKC,0:GDT0942 
948 PRINT:POKEKC,0 

950 T = 18000: li=0: V= 1 

951 P0KE228,1 

954 CP=229:00=0:POKECP,CC:POKECR,0:CC=140 
960 P0KE8270,0 

999 RETURN 

1000 REM ROAD: 

1010 DATA.36:READJ:IFJ<>.36THEN1010 
1020 FORJ=7000T07023:POKEJ,140:NEXT:P0KE7024,0 
1030 CJ=7025:G05UB2000 

1032 F0RJ=1T012:POKE7034+J,140-8#J:NEXT 

1034 F0RJ=7047T07051:POKEJ,44;NEXT 

1036 FORJ=1TO10:P0KE7051+J,44+J #16:NEXT 

1038 F0RJ=7062T07071:POKEJ,204: NEXT 

1040 K=0:FORJ=1 TO10:K=K+J;P0KE7071+J,204-K:NEXT 

1042 CJ=7082:G0SUB2000:PQKE7092, O 

1050 CJ=7093:G0SUB2000 

1052 K=0:FORJ=1TO11:K=K+J:P0KE7102+J,140+K:NEXT 
1054 FORJ=7114T07123;POKEJ,206:NEXT 
1056 K=0:FORJ=1T09:K=K+2*J:P0KE7123+J,206-K:NEXT 
1058 K=116:FORJ = 1T07:K=K—<8-J)*3:P0KE7132+J,K: NEXT 
1060 K=0:FORJ=1TO14:K=K+J:P0KE7139+J,32+K:NEXT 
1062 CJ=7154:G0SUB2000:P0KE7164,0 
1070 CJ=7165:G0SUB2000 

1072 F0RJ=1T0124:P0KE7174+J,140+C0S(1.6+J/10)#100:NEXT 
1074 CJ=7299:G0SUB2000:P0KE7309,0 
1100 0J=7310:G0SUB2000 

1110 FQRJ=1TQ14:P0KE7319+J,140-J#2:NEXT 

1112 FORJ=1TO10:P0KE7333+J,112+J#3:NEXT 

1113 P0KE7344,142 

1114 F0RJ=1T010:P0KE7344+J,142-J*7:NEXT 
1116 FORJ=1TO10:P0KE7354+J,72+J *8:NEXT 
1118 F0RJ=1T08:P0KE7364+J,152-J#14:NEXT 
1120 F0RJ=1T010:P0KE7372+J,40+J#10:NEXT 
1122 CJ=7383:G0SUB2000:P0KE7393, 0 

1999 G0T040004 

2000 FORJ=CJTDCJ+9:POKEJ,140:NEXT:RETURN 

3000 PRINT:PRINT"Finding it;":F0RJ=1T01800:K=RND <8):NEXT 
3005 IFRND(8)<>RNTHEN3005 
3010 RETURN 

3100 PR I NT "======================== " ; 

3110 PRINT 

3120 PRINT" NIGHT RIDER" 

3130 PRINT 

3140 PRINT"======================== » 

3150 PR I NT: PR I NT: F'R I NT 











’PRINT"See how -far you can get in three minutes." 


*3165 PRINT 

3170 PRINT: PRINT"B-Left" 

3172 PR I NT "N-Right" 


3174 PRINT"L. Shift—Gas":PRINT 
3180 PRINT"Constructing track;" 

40000 REM M.L. DATA: 

40004 F0RQ=7680T08045:READM:POKES,M:NEXT 

40008 DATA169,0,133,234,230,232,208,2,230,233,160,8,177,232, 208 
40010 DATA8,165,249,133,232,165,250,133,233,165,228,74,133,235,74 
40012 DATA24,101,235,174,12,223,228,224,208,4,230,228,165,228,197 
40014 DATA231,48,2,165,231,133,228,56,165,231,229,228,133,242,230 
40016 DATA242,169,1,141,18,2,165,225,141,0,223,173,0,223,197 
40018 DATA226,208,14,24,165,229,101,242,80,2,169,127,133,229,24 
40020 DATA144,15,197,227,208,11,56,165,229,229,242,80,2,169, 128 
40022 DATA133,229,160,0,132,236,169,32,162,0,129,19,232,232,224 
40024 DATA42,48,248,162,8,138,10,168,177,247,133,245,200,177,247 
40026 DATA133,246,138,168,177,232,24,164,229,48,11,101,229,144,2 
40028 DATA169,255,133,79,24,144,8,101,229,176,2,169,0,133,79 
40030 DATA24,117,61,176,38,133,235,74,74,74,168,165,235,41,7 
40032 DATA24,105,136,145,245,134,237,166,236,132,82,165,245,24,101 
40034 DATA82,149,19,232,165,246,149,19,232,134,236,166,237, 165,79 
40036 DATA56,245,61,144,43,133,235,74,74,74,168,165.235,41,7 
40038 DATA24,105,136,145,245,208,3,24,144,146,134,237,166,236,132 
40040 DATA81,165,245,24,101,81,149,19,232,165,246,149,19,232,134 
40042 DATA236,166,237,165,80,24,105,3,201,7,48,2,169,0,133 
40044 DATA80,168,169,2,133,235,138,217,70,0,240,7,200,198, 235 
40046 DATA16,246,48,32,165,79,74,74,74,168,169,46,145,245, 134 
40048 DATA237,166,236,152,24,101,245,149,19,232,165,246,149, 19,232 
40050 DATA234,234,134,236,166,237,224,0,240,9,169,0,133,81,133 
40052 DATA82,202,208,154,162,0,142,18,2,232,164,81,240,4,192 
40054 DATA16,16,9,232,164,82,240,6,192,18,240,2,133,234 
40056 DATA165,228,208,2,230,228,96 

40060 F0RQ=0T012:J=7938+0:K=8045+Q:L~PEEK < J):POKEK, L 

40062 IFQ >1THENPOKEJ,234 

40064 NEXT 

40070 P0KES058,96 

40100 RESTORE:RETURN 

45100 REM SET UP TABLES FOR M.L. ROUTINE 

45105 READM:IFMO456THEN45105 

45106 DATA456 
45110 BL=UL+17*I 
45115 LL=8173 

45120 F0RQ-0T08: READM: BL=BL-I#M: SOI NT (BL/TF) 

45125 POKELL+1,SC:PQKELL,BL-TF*SC:LL=LL+2:NEXT 

45149 REM DATA FOR SETTING UP SCREEN LOCATIONS 

45150 DAT AO, 4,3,3,2,2, 1, 1, 1 
45200 SA=6i 

45210 F0RQ=0T08:READM:POKESA+Q,M:NEXT 
45250 DATA91,71,56,41,31,21,16,11,6 
45290 SA=70 

45300 F0R0=0T08:READM:POKEQ+SA,M:NEXT 
45310 DATA2,5,15,1,4,15,0,3,6 






45320 F'OKESO, 0 

45510 P0KE224,AC:P0KE225, ROW; P0KE226,C7:P0KE227,C6 

45520 MV=20 

45530 PQKE231,MV 

45540 P0KE247,237:P0KE248,31 

45600 HP=7000 

45610 HH=INT(HP/TF):P0KE233,HH:P0KE250,HH 

45620 HH=HP~TF*HH: PQKE232, HH: P0KE249, HH 

45630 HP=HP+8:T8=232:T9=233 

45650 F0RQ=19T060:POKEQ,255:NEXT 

45710 P0KE80,0 

47000 P0KE228,0 

47500 REM PATCHES 

47510 P0KE8012,16 

47520 P0KE8037,134 

47540 P0KE8035,16 

48000 RESTORE:RETURN 



